Option Explicit
Sub B_Sample014()
    Dim myRng As Range
    Dim myPhn As Phonetic
    Set myRng = Range("A1")				'Nxs
    With myRng
        .Clear							'xs檺M
        .Value = "tc"					']wr
        .Phonetic.Text = "UTSUNOMIYA"	']wW
        'ǳƨ즹
        Set myPhn = .Phonetic
        MsgBox "xs" & .Address & "" & vbCrLf & _
        	"W" & myPhn.Text & "C"
    End With
    Set myPhn = Nothing						'
    Set myRng = Nothing
End Sub
